(setup-korean-environment): Set default value of default-input-method.

diff --git a/lisp/language/korean.el b/lisp/language/korean.el
index 5fd8b735c0f98bd91a89e561e3b05a341b878824..5acb94a7b206c2133de4ed3af77be7a752ac0b08 100644 (file)
--- a/lisp/language/korean.el
+++ b/lisp/language/korean.el
@@ -59,7 +59,8 @@
 
   (setq-default buffer-file-coding-system 'korean-iso-8bit)
 
-  (setq default-input-method "korean-hangul"))
+  (setq default-input-method "korean-hangul")
+  (setq-default default-input-method "korean-hangul"))
 
 (set-language-info-alist
  "Korean" '((setup-function . setup-korean-environment)